B u t t o n   1   T e x t   L 1 
 
 B u t t o n   L 1   S l o t   1 
 
 B u t t o n   2   T e x t   L 2 
 
 B u t t o n   L 2   S l o t   2 
 
 B u t t o n   3   T e x t   L 3 
 
 B u t t o n   L 3   S l o t   3 
 
 S t o p 
 
 
 
 '   - - - - - - - - - - - - - - - - - -   S e t   S l o t ( 1 )   O N   o r   O F F 
 
 L a b e l   L 1 
 
 	 I f   S l o t ( 1 1 )   <   5 0 0 
 
 	 	 S l o t ( 1 1 )   =   1 0 0 0 
 
 	 E l s e 
 
 	 	 S l o t ( 1 1 )   =   0 
 
 	 E n d I f 
 
 S t o p 
 
 
 
 '   - - - - - - - - - - - - - - - - - -   S e t   S l o t ( 2 )   O N   o r   O F F 
 
 L a b e l   L 2 
 
 	 I f   S l o t ( 1 2 )   <   5 0 0 
 
 	 	 S l o t ( 1 2 )   =   1 0 0 0 
 
 	 E l s e 
 
 	 	 S l o t ( 1 2 )   =   0 
 
 	 E n d I f 
 
 S t o p 
 
 
 
 '   - - - - - - - - - - - - - - - - - -   S e t   S l o t ( 3 )   O N   o r   O F F 
 
 L a b e l   L 3 
 
 	 I f   S l o t ( 1 3 )   <   5 0 0 
 
 	 	 S l o t ( 1 3 )   =   1 0 0 0 
 
 	 E l s e 
 
 	 	 S l o t ( 1 3 )   =   0 
 
 	 E n d I f 
 
 S t o p 
 
 
 
 
 
 
 
 ' W A T C H   S l o t ( 1 1 ) 
 
 ' W A T C H   S l o t ( 1 2 ) 
 
 ' W A T C H   S l o t ( 1 3 ) 
 
 ' E X E C   S l o t ( 1 )   =   1 0 0 0   -   S l o t ( 1 ) 
 
 